home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / animals.dir / 00064_EN 1980-83.pct.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  1.3 KB  |  38 lines
  1. on mouseDown
  2.   global theArticle, whHead
  3.   set mv to the mouseV
  4.   set mh to the mouseH
  5.   put "35,210,476,240" into line 1 of bgArray
  6.   put "56,140,468,166" into line 2 of bgArray
  7.   put "210,169,606,207" into line 3 of bgArray
  8.   put "427,244,607,288" into line 4 of bgArray
  9.   set whHead to 0
  10.   repeat with n = 1 to 4
  11.     if (mh > item 1 of line n of bgArray) and (mh < item 3 of line n of bgArray) then
  12.       if (mv > item 2 of line n of bgArray) and (mv < item 4 of line n of bgArray) then
  13.         set whHead to n
  14.         spriteBox(43, value(item 1 of line whHead of bgArray), value(item 2 of line whHead of bgArray), value(item 3 of line whHead of bgArray), value(item 4 of line whHead of bgArray))
  15.         updateStage()
  16.       end if
  17.     end if
  18.   end repeat
  19.   clearLists()
  20.   if whHead = 1 then
  21.     set theArticle to "EN010802.asc>Fur shops, labs, homes on Animal LibbersΓÇÖ hit list>0"
  22.     winArticle()
  23.   end if
  24.   if whHead = 2 then
  25.     set theArticle to "EN010602.asc>Animal experiments: will the law go too far?>0"
  26.     winArticle()
  27.   end if
  28.   if whHead = 3 then
  29.     set theArticle to "EN010701.asc>The ΓÇÿb├¬te noireΓÇÖ who bit back>0"
  30.     winArticle()
  31.   end if
  32.   if whHead = 4 then
  33.     set theArticle to "EN010605.asc>Drug firms ready to drop tests on animals>0"
  34.     winArticle()
  35.   end if
  36.   setOffStage("43")
  37. end
  38.